﻿Public Class SearchParams

    Private Sub ButtonCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonCancel.Click
        Me.Close()
    End Sub

    Private Sub ButtonOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
        QueryDomains = DomainsList.Text
        QueryType = RecordType.SelectedItem
        Me.Close()
    End Sub

    Private Sub SearchParams_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DomainsList.Text = QueryDomains
        RecordType.SelectedItem = QueryType
    End Sub

End Class